sub FAMPanes,#thisPane
  ! --------- Pane bar, husband, and wife in box -----------
  #oldWidth=#rightMargin$
  DisplayWidth #oldWidth+#rightSkip+1
  newline -#topMargin$-1
  hskip -#leftSkip-1
  cell GroupBox
    border line
    titleposition none
    cellbackground "Record Header Box Background"
    width -1

    moveto 1,1
    cell PaneBar
    AddPane local("Family"),""
    #nevt=@count.FAMEvents+@count.FAMOrdinances
    if #mainAll="no"
      AddPane local("Events")&" ("&#nevt&")","Events"
    endif
    AddPane local("Group"),"Group"
    AddPane local("Multimedia")&" ("&@countAll.OBJE&")","Media"
    #plab=local("NOTE")&" ("&@countAll.NOTE&") "&local("and")
    #plab&=" "&local("Sources")&" ("&@countAll.SOUR&")"
    AddPane #plab,"Notes"
    AddPane local("Other"),"Other"
    if #mainAll="no"
      AddPane local("All"),"All"
    endif
    set selected #thisPane
    sizetofit
    set height #cellHeight$+1		! needed for Tiger
    shift (#rightMargin$-#hpos$-#cellWidth$)/2
    help local("Click to view section of this family's data")

    newline

    Show HUSB
    #v1=#vpos$
    Show WIFE
    moveto #rightMargin$-#rightSkip-28,(#vpos$+#v1)/2
    Show RESN
  EndGroup

  DisplayWidth #oldWidth
endSub